BEGIN SCRIPT cable_tension_test
-- sonar sample-07 / tension test cable
-- created: 05/18/2017 L&G_Software
-- all variables in [cm g us]-system
-- cable type: SDR_6x19+SES
-- length = 100.0 mm
-- lay direction: Links = +1 ; Rechts = -1
-- young modulus(wire) = 2.16E+11 Pa


-------------------------------------------------------------------
-- SONAR SCRIPT SYNTAX
-------------------------------------------------------------------
-- CREATE CABLE (x1, y1, z1, x2, y2, z2,
--               SL_L0, SR_L0, n0_L0, e0_L0, d0_L0,
--                             n1_L0, e1_L0, d1_L0,
--                             n2_L0, e2_L0, d2_L0,
--                             n3_L0, e3_L0, d3_L0,
--               SL_L1, SR_L1, n0_L1, e0_L1, d0_L1,
--                             n1_L1, e1_L1, d1_L1,
--                             n2_L1, e2_L1, d2_L1,
--                             n3_L1, e3_L1, d3_L1,
--               SL_L2, SR_L2, n0_L2, e0_L2, d0_L2,
--                             n1_L2, e1_L2, d1_L2,
--                             n2_L2, e2_L2, d2_L2,
--                             n3_L2, e3_L2, d3_L2,
--               SL_S1, SR_S1, nS1, H_diam_S1,
--               SL_S2, SR_S2, nS2, H_diam_S2,
--               ro, E, G, C1, C2,
--               colorIdx,iActMethodIdx,iActModeIdx,matIndex)
                           
-------------------------------------------------------------------
-- CABLE DATA
-------------------------------------------------------------------
-- CREATE CABLE (0,0,0,0,0,10.0,
--		 0.791,-1,1,12,0.032,
--		 	  6,16,0.030,
--			  0,0,0,
--			  0,0,0,
--		 0.503,-1,1,32,0.030,
--			  6,16,0.025,
--			  0,0,0,
--			  0,0,0,
--		 1.673, 1,1,32,0.046,
--			  6,16,0.043,
--			  6,18,0.032,
--			  6,18,0.044,
--		1.615,-1,6,0.172,
--		4.211,-1,6,0.449,
--		7.8,2.16,0.8,1.0E-2,1.0E-2,3,6,1,1)

-------------------------------------------------------------------
-- CORRECTIONS
-------------------------------------------------------------------

SET VALUE (CABLE_CORRECTIONS, HELIX, 2, 0, 1.02)
SET VALUE (CABLE_CORRECTIONS, HELIX, 2, 2, 1.02)
SET VALUE (CABLE_CORRECTIONS, HELIX, 2, 3, 0.98)

-------------------------------------------------------------------
-- CABLE
-------------------------------------------------------------------
CREATE CABLE (0,0,0,0,0,10.0,0.791,-1,1,12,0.032,6,16,0.03,0,0,0,0,0,0,0.503,-1,1,32,0.03,6,16,0.025,0,0,0,0,0,0,1.673,1,1,32,0.046,6,16,0.043,6,18,0.032,6,18,0.044,1.615,-1,6,0.172,4.211,-1,6,0.449,7.8,2.16,0.8,0.01,0.01,3,6,1,1)

-- the last 4 parameters are: 
-- color      = 4 = copper; 3 = silver; 7 = epoxy
-- iActMethod = 6 = E/P=90/10; 
-- iActMode   = 1 = active; 
-- matIndex   = 6 = copper; 1 = steel
-- Die Variablen C1 und C2 werden in der Zielfunktion noch nicht ausgewertet, sondern theoretisch berechnet.

-------------------------------------------------------------------
-- SLEEVE
-------------------------------------------------------------------
-- sleeve_1
CREATE OBJECT(O1, CYLINDER, 0.0, 0.0, -0.5, 0.0, 0.0, 0.0, 0.35, 1.0)
SET PROPERTY(O2, DENSITY, 8.92) -- copper
SET PROPERTY(O1, COLOR_STD, 4) -- copper
SET PROPERTY(O1, INTERACT_MODE, NO_INTERACTION)
SET PROPERTY(O1, SIM_MEMBER, FALSE) -- fixed in space
SET PROPERTY(O1, ROTATION_LOCKED, X, TRUE)
SET PROPERTY(O1, ROTATION_LOCKED, Y, TRUE)
SET PROPERTY(O1, ROTATION_LOCKED, Z, TRUE)

-- sleeve_2
CREATE OBJECT(O2, CYLINDER, 0.0, 0.0, 10.5, 0.0, 0.0, 0.0, 0.35, 1.0)
SET PROPERTY(O2, DENSITY, 8.92) -- copper
SET PROPERTY(O2, COLOR_STD, 4) -- copper
SET PROPERTY(O2, INTERACT_MODE, NO_INTERACTION)
SET PROPERTY(O2, SIM_MEMBER, TRUE) -- free
SET PROPERTY(O2, ROTATION_LOCKED, X, TRUE)
SET PROPERTY(O2, ROTATION_LOCKED, Y, TRUE)
SET PROPERTY(O2, ROTATION_LOCKED, Z, TRUE)

-- auto Link cable
DESELECT ALL
SELECT OBJECT(LAST_OBJECT - 1) -- sleeve 1
SELECT OBJECT (LAST_OBJECT - 3) -- wire element braid
ATTACH CABLE (SELECTION, FALSE) -- false = no message

-- auto Link cable
DESELECT ALL
SELECT OBJECT (LAST_OBJECT) -- sleeve 2
SELECT OBJECT (LAST_OBJECT - 3) -- wire element braid
ATTACH CABLE (SELECTION, TRUE) -- true = message
DESELECT ALL

-------------------------------------------------------------------
-- CABLE PROPERTIES
-------------------------------------------------------------------
-- Link constants are calc autom. from young modulus
SET SUPERGROUP_PROPERTY (LAST_SUPERGROUP_NR, C_INTERACT_LIN, 1.0E-3) -- normal to hard
SET SUPERGROUP_PROPERTY (LAST_SUPERGROUP_NR, C_INTERACT_QUAD, 1.0E-2) -- hard
SET SUPERGROUP_PROPERTY (LAST_SUPERGROUP_NR, C_LINK, CTR120, 0.4, 0.2) -- relative Biegesteifigkeit setzen (40%+3*20%)
SET SUPERGROUP_PROPERTY (LAST_SUPERGROUP_NR, C_LINK, E_MODUL, 2.1, 1.0) -- relative Biegesteifigkeit bleibt erhalten
SET SUPERGROUP_PROPERTY (LAST_SUPERGROUP_NR, C_LINK, MATERIAL_MODEL, 5) -- isotropic hardening
SET SUPERGROUP_PROPERTY (LAST_SUPERGROUP_NR, C_LINK, STRENGTH_CALC, SPECIFIC, 2.2E-2, 1.0) -- 2200 N/mm2 = 2.2E+9 Pa = 2.2E-2 [calc]
SET SUPERGROUP_PROPERTY (LAST_SUPERGROUP_NR, C_LINK, STRENGTH_ULTIMATE, SPECIFIC, 2.4E-2, 1.0) -- 2400 N/mm2
SET SUPERGROUP_PROPERTY (LAST_SUPERGROUP_NR, C_LINK, STRAIN_LIMIT, PERCENT, 4.0) -- break up with 4% strain
SET SUPERGROUP_PROPERTY (LAST_SUPERGROUP_NR, C_LINK, OVERLOAD_ACTION, BREAKUP)
SET SUPERGROUP_PROPERTY (LAST_SUPERGROUP_NR, COLOR_STD, 3) -- silver

-------------------------------------------------------------------
-- GLOBAL
-------------------------------------------------------------------
-- max. timestep
SET VALUE(TIMESTEP_MAX = 0.005) -- 4.0E-9s

-- friction
SET VALUE (C_FRICTION_STATIC = 0.2)
SET VALUE (C_FRICTION_DYNAMIC = 0.2)
SET STATE (FRICTION, ON) -- switched on

-- set preferences
SET PREFERENCE (IACT_CYCLE_CALC_PERIOD, 100) -- default
SET PREFERENCE (IACT_OBJSIZE_SECURITY_FAC, 1.04) -- not yet implemented and executed

DESELECT ALL
-- end of script